Serving Financial Services Solutions Suite 1994 Fall

home *** CD-ROM | disk | FTP | other *** search

/ Serving Financial Service…olutions Suite 1994 Fall / Serving Financial Services Solutions Suite 1994 Fall.iso / Apps / FirstClass / Tailor.app / PS__Parse.data < prev next >

Wrap

Text File | 1994-12-12 | 21KB | 3,453 lines

%! Adobe packPS Version 2.0 (9) /revision 9412 def /product (Tailor PostScript Input Engine) def 100 dict dup /TailorEngineScanDict exch def begin /CourierFontDict /Courier findfont def /originalscale /scale load def /originaltranslate /translate load def /origdefinefont /definefont load def /origfindfont /findfont load def /originalfindfont { 4 dict begin /definefont //origdefinefont def /findfont //origfindfont def /setshared {pop} def /setglobal {pop} def //origfindfont exec end } bind def /showprogress where { pop } { /showprogress {} def } ifelse true setglobal /enginestate 14 dict def //enginestate /referencematrix matrix put //enginestate /setupmatrix matrix put //enginestate /firstpage true put false setglobal /setallchanged { //enginestate /matr true put //enginestate /color true put //enginestate /overprint true put //enginestate /font true put //enginestate /line true put //enginestate /dash true put //enginestate /clip true put } bind def /enginecache 10 dict def enginecache /mapping 2 dict put enginecache /bitmap 15 dict put //EngineSubFontName findfont pop /NoFontName (?) def /holdchar 1 string def /holdstring 1000 string def /holdname 100 string def /holdcolor 250 string def /holdmatrix matrix def /prtnum { //holdstring cvs print ( ) print } bind def /prtpath { { (M ) print //prtnum exec //prtnum exec } { (L ) print //prtnum exec //prtnum exec } { (C ) print //prtnum exec //prtnum exec //prtnum exec //prtnum exec //prtnum exec //prtnum exec} { (O ) print } pathforall } bind def /getinversemapping { mapping target known { /inverse mapping target get def }{ /inverse 230 dict def 0 target {inverse exch 2 index put 1 add} forall pop mapping target inverse put } ifelse } bind def /prtstring { //enginecache begin source target eq { (%stdout)(w) file exch writehexstring }{ //getinversemapping exec //holdstring exch 0 exch { source 1 index get inverse 1 index known { inverse exch get exch pop } { pop mapnotdef { pop inverse /.notdef get } if } ifelse 3 copy put pop 1 add } forall 0 exch getinterval (%stdout)(w) file exch writehexstring } ifelse end ( ) print } bind def /prtdefaultdevicematrix { (<V ) print //holdmatrix defaultmatrix {//prtnum exec} forall (>\n) print } bind def /prtmatr { //enginestate /matr get { //enginestate /matr false put (<M ) print //holdmatrix currentmatrix {//prtnum exec} forall (>\n) print } if //enginestate /overprint get { //enginestate /overprint false put (<K ) print currentoverprint {(1)}{(0)}ifelse print (>\n) print } if } bind def /prtcolor { //enginestate /color get { //enginestate /color false put (<C ) print mark currentcolor dup type /integertype eq { currentcolorspace aload pop print } { counttomark dup //prtnum exec {//prtnum exec} repeat } ifelse cleartomark (>\n) print } if } bind def /TailorCustomizeFontName {} def /normfontname { //holdstring cvs (_) search {pop pop} if 0 exch { dup 45 eq 1 index 48 ge 2 index 57 le and or 1 index 65 ge 2 index 90 le and or 1 index 97 ge 2 index 122 le and or {//holdname exch 2 index exch put 1 add} {pop dup 1 ge {exit} if} ifelse } forall //holdname exch 0 exch getinterval TailorCustomizeFontName } bind def /prtfont { //enginestate /font get { //enginestate /font false put //enginestate /outline false put (<A ) print currentfont /FontName known { currentfont /FontName get //normfontname exec } { //NoFontName } ifelse dup print ( ) print cvn currentfont /FontType get 1 eq {//EngineUseEmbedded1} {true} ifelse { dup //originalfindfont exec pop dup SharedFontDirectory exch known not { currentfont /TailorEngineSubClone known not { //enginestate /outline true put } if } if } if //enginecache begin SharedFontDirectory 1 index known not { pop //EngineSubFontName } if SharedFontDirectory exch get /Encoding get /target exch def /source currentfont /Encoding get def /mapnotdef currentfont /FontType get 1 eq def end currentfont /ScaleMatrix known {currentfont /ScaleMatrix get} {matrix} ifelse {//prtnum exec} forall (>\n) print } if } bind def /prtline { //enginestate /line get { //enginestate /line false put (<L ) print currentlinewidth //prtnum exec currentlinecap //prtnum exec currentlinejoin //prtnum exec currentmiterlimit //prtnum exec (>\n) print } if } bind def /prtdash { //enginestate /dash get { //enginestate /dash false put (<D ) print currentdash //prtnum exec {//prtnum exec} forall (>\n) print } if } bind def /prtclip { //enginestate /clip get { //enginestate /clip false put (<I ) print currenthalftonephase pop prtnum (>\n) print } if } bind def /restore {//setallchanged exec restore } bind def /grestore {//setallchanged exec grestore } bind def /grestoreall {//setallchanged exec grestoreall } bind def /setgstate {//setallchanged exec setgstate } bind def /setpagedevice {//setallchanged exec setpagedevice } bind def /initmatrix {//enginestate /matr true put initmatrix } bind def /setmatrix {//enginestate /matr true put setmatrix } bind def /translate {//enginestate /matr true put translate } bind def /scale {//enginestate /matr true put scale } bind def /rotate {//enginestate /matr true put rotate } bind def /concat {//enginestate /matr true put concat } bind def /nxsetgray {//enginestate /color true put setgray } bind def /nxsetrgbcolor {//enginestate /color true put setrgbcolor } bind def /setgray {//enginestate /color true put setgray } bind def /sethsbcolor {//enginestate /color true put sethsbcolor } bind def /setrgbcolor {//enginestate /color true put setrgbcolor } bind def /setcmykcolor {//enginestate /color true put setcmykcolor } bind def /setcolor {//enginestate /color true put setcolor } bind def /setoverprint {//enginestate /overprint true put setoverprint } bind def /setfont {//enginestate /font true put setfont } bind def /selectfont {//enginestate /font true put selectfont } bind def /setlinewidth {//enginestate /line true put setlinewidth } bind def /setlinecap {//enginestate /line true put setlinecap } bind def /setlinejoin {//enginestate /line true put setlinejoin } bind def /setmiterlimit {//enginestate /line true put setmiterlimit } bind def /setdash {//enginestate /dash true put setdash } bind def /_NXSetCMYKOrRGB { (6 ) //holdcolor copy pop pop pop pop 2 4 { exch //holdstring cvs dup length exch //holdcolor exch 3 index exch putinterval add //holdcolor 1 index ( ) putinterval 1 add } repeat 2 { //holdcolor 1 index ($) putinterval 1 add exch dup length exch //holdcolor exch 3 index exch putinterval add //holdcolor 1 index ($) putinterval 1 add } repeat [ /Indexed /DeviceGray 3 index 1 sub //holdcolor 0 6 index getinterval ] setcolorspace pop //enginestate /color true put } bind def /initgraphics { //enginestate /inittag get 0 sethalftonephase //setallchanged exec initgraphics } bind def /initclip { //enginestate /inittag get 0 sethalftonephase //enginestate /clip true put initclip } bind def /clip { //prtmatr exec //enginestate begin /tag tag 1 add def (<P ) print tag prtnum currenthalftonephase pop prtnum (N ) print //prtpath exec (>\n) print tag 0 sethalftonephase /clip true def end clip } bind def /eoclip { //prtmatr exec //enginestate begin /tag tag 1 add def (<P ) print tag prtnum currenthalftonephase pop prtnum (E ) print //prtpath exec (>\n) print tag 0 sethalftonephase /clip true def end eoclip } bind def /findfont { dup //originalfindfont exec dup //CourierFontDict eq { 1 index //normfontname exec /Courier ne { pop //EngineSubFontName //originalfindfont exec dup length 1 add dict dup begin exch { 1 index /FID ne {def}{pop pop} ifelse } forall /FontName 2 index def /TailorEngineSubClone true def end 1 index exch //definefont exec ($$Cloned Unavailable: ) print dup /FontName get prtnum ($$\n) print } if } if exch pop } bind def /findresource { dup /Font eq { pop findfont }{ findresource } ifelse } bind def /definefont { dup /FontType get 1 ne { 1 index //normfontname exec dup //originalfindfont exec 1 index /Courier eq 1 index //CourierFontDict ne or { exch pop 1 index begin { 1 index /Encoding ne {def}{pop pop} ifelse } forall /FontName 2 index def FontType 1 eq { /TailorEngineSubClone true def } if end dup /FID undef dup /XUID undef dup /UniqueID undef ($$Cloned Non-Type-1: ) print dup /FontName get prtnum ($$\n) print } { pop pop dup /FontName 3 index put } ifelse } { 1 index //normfontname exec //originalfindfont exec pop } ifelse //definefont exec //showprogress exec } bind def /defineresource { dup /Font eq { pop definefont }{ defineresource } ifelse } bind def /eexec { count 1 gt { 1 index type /dicttype eq { 1 index /FontName known { 1 index /FontName get //normfontname exec ($$Intercepted eexec: ) print dup prtnum ($$\n) print //originalfindfont exec pop } if } if } if //eexec exec } bind def /stroke { //prtmatr exec //prtcolor exec //prtline exec //prtdash exec //prtclip exec (<S ) print //prtpath exec (>\n) print newpath //showprogress exec } bind def /fill { //prtmatr exec //prtcolor exec //prtclip exec (<F N ) print //prtpath exec (>\n) print newpath //showprogress exec } bind def /eofill { //prtmatr exec //prtcolor exec //prtclip exec (<F E ) print //prtpath exec (>\n) print newpath //showprogress exec } bind def /storecharwidth { matrix currentmatrix dtransform //enginestate /referencematrix get idtransform //enginestate exch /dy exch put //enginestate exch /dx exch put } def /loadcharwidth { //enginestate /dx get //enginestate /dy get } def /setcharwidth {setcharwidth} bind def /setcachedevice {setcachedevice} bind def /setcachedevice2 {setcachedevice2} bind def /awidthshow { //prtmatr exec //prtcolor exec //prtfont exec //prtclip exec //enginestate /outline get 7 copy {(<O )} {(<T )} ifelse print currentpoint //prtnum exec //prtnum exec //prtstring exec //prtnum exec //prtnum exec //prtnum exec //prtnum exec //prtnum exec (>\n) print { currentfont /FontType get 1 eq { gsave 15 dict begin /cx 6 index def /cy 5 index def /char 4 index def /ax 3 index def /ay 2 index def currentpoint /y exch def /x exch def 20 20 //originalscale dup { newpath 0 0 moveto //holdchar dup 0 3 index put dup true charpath x neg y neg //originaltranslate fill x y //originaltranslate stringwidth y add ay add exch x add ax add exch 3 -1 roll char eq { cy add exch cx add exch } if /y exch def /x exch def } forall end (<Q>\n) print grestore awidthshow } { 15 dict begin //enginestate /referencematrix get currentmatrix pop /setcharwidth { //storecharwidth exec } def /setcachedevice { 4 {pop} repeat //storecharwidth exec } def /setcachedevice2 { 8 {pop} repeat //storecharwidth exec } def /str exch def /ay exch def /ax exch def /char exch def /cy exch def /cx exch def currentpoint /y exch def /x exch def str { gsave x y translate newpath 0 0 moveto currentfont dup /FontMatrix get concat 1 index 1 index /BuildChar get exec loadcharwidth y add ay add exch x add ax add exch 3 -1 roll char eq { cy add exch cx add exch } if /y exch def /x exch def grestore } forall x y moveto end (<Q>\n) print } ifelse } { awidthshow } ifelse //showprogress exec } bind def /show { 0 0 0 0 0 6 -1 roll //awidthshow exec } bind def /ashow { 0 0 0 6 -3 roll //awidthshow exec } bind def /widthshow { 0 exch 0 exch //awidthshow exec } bind def /kshow { dup length 0 gt { dup 0 1 getinterval show //enginecache exch /kstring exch put //enginecache exch /kproc exch put //enginecache /kindex 0 put //enginecache /kstring get length 1 sub { //enginecache /kstring get //enginecache /kindex get get //enginecache /kindex 2 copy get 1 add put //enginecache /kstring get //enginecache /kindex get get //enginecache /kproc get exec //enginecache /kstring get //enginecache /kindex get 1 getinterval show } repeat } { pop pop } ifelse } bind def /glyphshow { 0 currentfont /Encoding get {2 index eq {exit} if 1 add} forall dup 256 ge { pop 32 } if exch pop 1 string dup 0 3 index put exch pop 0 0 0 0 0 6 -1 roll //awidthshow exec } bind def /save {save} bind def /charpath { currentfont /FontType get 1 eq { charpath } { 15 dict begin //enginestate /referencematrix get currentmatrix pop /setcharwidth { //storecharwidth exec } def /setcachedevice { 4 {pop} repeat //storecharwidth exec } def /setcachedevice2 { 8 {pop} repeat //storecharwidth exec } def /stroke exch {{strokepath}} {{}} ifelse def /fill {} def /eofill {} def /save {0} def /restore {pop} def /oldmatrix matrix currentmatrix def currentpoint /y exch def /x exch def { x y translate currentfont dup /FontMatrix get concat exch 1 index /BuildChar get exec loadcharwidth /y exch y add def /x exch x add def oldmatrix setmatrix } forall x y moveto end } ifelse } bind def /stringwidth { currentfont /FontType get 1 eq { stringwidth } { 15 dict begin //enginestate /referencematrix get currentmatrix pop /setcharwidth { //storecharwidth exec } def /setcachedevice { 4 {pop} repeat //storecharwidth exec } def /setcachedevice2 { 8 {pop} repeat //storecharwidth exec } def /stroke {} def /fill {} def /eofill {} def /imagemask { type /dicttype ne {pop pop pop pop} if } def /y 0 def /x 0 def { gsave currentfont dup /FontMatrix get concat exch 1 index /BuildChar get exec loadcharwidth /y exch y add def /x exch x add def grestore } forall x y end } ifelse } bind def /engineimage { //prtmatr exec //prtclip exec (<B ) print pixelsWide //prtnum exec pixelsHigh //prtnum exec bitsPerSample //prtnum exec samplesPerPixel //prtnum exec isPlanar {1}{0} ifelse //prtnum exec hasAlpha {1}{0} ifelse //prtnum exec maskPolarity //prtnum exec imageMatrix {//prtnum exec} forall /stdout (%stdout)(w) file def /left bitsPerSample samplesPerPixel mul pixelsWide mul 7 add 8 idiv dataSrcs length idiv pixelsHigh mul def /used 0 def dataSrcs 0 get type /stringtype eq { { dataSrcs { dup length left gt { 0 left getinterval } if dup length dup /used exch def 0 eq {pop exit} if stdout exch writehexstring (\n) print } forall used 0 eq {exit} if /left left used sub def left 0 le {exit} if } loop } { dataSrcs 0 get type /filetype eq { { dataSrcs { //holdstring dup length left gt { 0 left getinterval } if readstring exch dup length dup /used exch def 0 eq {pop pop exit} if stdout exch writehexstring (\n) print not {/used 0 def exit} if } forall used 0 eq {exit} if /left left used sub def left 0 le {exit} if } loop } { { dataSrcs { exec dup length left gt { 0 left getinterval } if dup length dup /used exch def 0 eq {pop exit} if stdout exch writehexstring (\n) print } forall used 0 eq {exit} if /left left used sub def left 0 le {exit} if } loop } ifelse } ifelse (>\n) print //showprogress exec } bind def /image { //enginecache /bitmap get begin dup type /dicttype eq { dup /ImageMatrix get /imageMatrix exch def dup /Height get /pixelsHigh exch def dup /Width get /pixelsWide exch def dup /MultipleDataSources known {dup /MultipleDataSources get}{false} ifelse /isPlanar exch def dup /DataSource get isPlanar not {[ exch ]} if /dataSrcs exch def dup /BitsPerComponent get /bitsPerSample exch def dup /Decode get length 2 idiv /samplesPerPixel exch def pop /hasAlpha false def }{ /dataSrcs exch [ exch ] def /imageMatrix exch def /bitsPerSample exch def /pixelsHigh exch def /pixelsWide exch def /samplesPerPixel 1 def /isPlanar false def /hasAlpha false def } ifelse /maskPolarity -1 def //engineimage exec end } bind def /colorimage { //enginecache /bitmap get begin /samplesPerPixel exch def /isPlanar exch def isPlanar {samplesPerPixel} {1} ifelse array astore /dataSrcs exch def /imageMatrix exch def /bitsPerSample exch def /pixelsHigh exch def /pixelsWide exch def /hasAlpha false def /maskPolarity -1 def //engineimage exec end } bind def /alphaimage { //enginecache /bitmap get begin /samplesPerPixel exch 1 add def /isPlanar exch def isPlanar {samplesPerPixel} {1} ifelse array astore /dataSrcs exch def /imageMatrix exch def /bitsPerSample exch def /pixelsHigh exch def /pixelsWide exch def /hasAlpha true def /maskPolarity -1 def //engineimage exec end } bind def /imagemask { //prtcolor exec //enginecache /bitmap get begin dup type /dicttype eq { dup /ImageMatrix get /imageMatrix exch def dup /Height get /pixelsHigh exch def dup /Width get /pixelsWide exch def dup /MultipleDataSources known {dup /MultipleDataSources get}{false} ifelse /isPlanar exch def dup /DataSource get isPlanar not {[ exch ]} if /dataSrcs exch def dup /Decode get 0 get /maskPolarity exch def /bitsPerSample 1 def /samplesPerPixel 1 def pop /hasAlpha false def }{ /dataSrcs exch [ exch ] def /imageMatrix exch def /maskPolarity exch {1}{0}ifelse def /pixelsHigh exch def /pixelsWide exch def /bitsPerSample 1 def /samplesPerPixel 1 def /isPlanar false def /hasAlpha false def } ifelse //engineimage exec end } bind def /TailorBeginDocument { //prtclip exec //enginestate 1 index cvn 1 index /inittag get put //enginestate /inittag currenthalftonephase pop put (<G ) print print (>\n) print } bind def /TailorEndDocument { //prtclip exec //enginestate 1 index cvn known {//enginestate 1 index cvn get} {0} ifelse //enginestate exch /inittag exch put (<E ) print print (>\n) print } bind def /TailorBeginPage { //prtclip exec //enginestate /inittag currenthalftonephase pop put //enginestate /firstpage get { //enginestate /setupmatrix get currentmatrix pop //enginestate /firstpage false put } if (<N ) print print (>\n) print } bind def /showpage { (<N 0>\n) print initgraphics } bind def /erasepage { } bind def /adjmat [//EngineResAdjust 0 0 //EngineResAdjust 0 0] def /invadjmat [1 //EngineResAdjust div 0 0 1 //EngineResAdjust div 0 0] def /tmpmat1 matrix def /tmpmat2 matrix def /prevsetmatrix /setmatrix load def //EngineResAdjust 1.01 ge { /defaultmatrix { tmpmat1 defaultmatrix //adjmat tmpmat2 concatmatrix exch copy } bind def /currentmatrix { tmpmat1 currentmatrix //adjmat tmpmat2 concatmatrix exch copy } bind def /setmatrix { //invadjmat tmpmat1 concatmatrix //prevsetmatrix exec } bind def /transform { dup type /arraytype ne {matrix currentmatrix} if transform } bind def /dtransform { dup type /arraytype ne {matrix currentmatrix} if dtransform } bind def /itransform { dup type /arraytype ne {matrix currentmatrix} if itransform } bind def /idtransform { dup type /arraytype ne {matrix currentmatrix} if idtransform } bind def /arc { gsave //EngineResAdjust //EngineResAdjust scale arc false upath grestore cvx exec } bind def /arcn { gsave //EngineResAdjust //EngineResAdjust scale arcn false upath grestore cvx exec } bind def /arct { gsave //EngineResAdjust //EngineResAdjust scale arct false upath grestore cvx exec } bind def /arcto { gsave //EngineResAdjust //EngineResAdjust scale arcto false upath grestore cvx exec} bind def } if /NXRectPath { 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto neg 0 rlineto closepath } bind def /NXProcessRectArgs { 1 index type /arraytype eq{ exch 0 4 2 index length 1 sub{ dup 3 add 1 exch{1 index exch get exch}for 5 1 roll 5 index exec }for pop pop }{exec}ifelse } bind def /rectfill { gsave newpath {//NXRectPath exec fill} //NXProcessRectArgs exec grestore } bind def /rectclip { newpath {//NXRectPath exec} //NXProcessRectArgs exec clip newpath } bind def /rectstroke { gsave newpath dup type /arraytype eq {dup length 6 eq} {false} ifelse { {gsave //NXRectPath exec null concat stroke grestore} dup length array cvx copy dup 3 4 -1 roll put //NXProcessRectArgs exec } { {//NXRectPath exec stroke} //NXProcessRectArgs exec } ifelse grestore } bind def /nulldevice { //setallchanged exec nulldevice 0 0 0 0 //rectclip exec } bind def /xyshow { 0 1 3 index length 1 sub{ currentpoint 4 index 3 index 1 getinterval show 3 index 3 index 2 mul 1 add get add exch 3 index 3 index 2 mul get add exch moveto pop }for pop pop } bind def /xshow { 0 1 3 index length 1 sub{ currentpoint 4 index 3 index 1 getinterval show exch 3 index 3 index get add exch moveto pop }for pop pop } bind def /yshow { 0 1 3 index length 1 sub{ currentpoint 4 index 3 index 1 getinterval show 3 index 3 index get add moveto pop }for pop pop } bind def /ueofill { gsave newpath uappend eofill grestore } bind def /ufill { gsave newpath uappend fill grestore } bind def /ustroke { gsave newpath dup length 6 eq {exch uappend concat}{uappend}ifelse stroke grestore } bind def /execform { dup /Implementation known not { dup /Implementation 0 put readonly } if gsave dup /Matrix get concat dup /BBox get aload pop exch 3 index sub exch 2 index sub rectclip dup /PaintProc get exec grestore } bind def /strokepath { false upath length 8 gt { strokepath } { newpath } ifelse } bind def false setstrokeadjust /setstrokeadjust { pop } bind def /put { 1 index /FontName ne {put} { 2 index 2 index known {pop pop pop} {put} ifelse } ifelse } bind def /readonly { } def /setpapersize {pop} bind def userdict begin /11x17 { initmatrix } def /tabloid { initmatrix } def /a2 { initmatrix } def /a3 { initmatrix } def /a4 { initmatrix } def /a4small { initmatrix } def /a5 { initmatrix } def /b4 { initmatrix } def /b5 { initmatrix } def /executive { initmatrix } def /ledger { initmatrix } def /legal { initmatrix } def /letter { initmatrix } def /lettersmall { initmatrix } def end statusdict begin /processcolors { 3 } def end (* ) print product print ( - revision ) print revision prtnum (*\n) print /InitializeTailorParseChunk { //setallchanged exec //enginestate /tag 0 put //enginestate /inittag 0 put 0 0 sethalftonephase //prtdefaultdevicematrix exec //enginestate /firstpage get not { //enginestate /setupmatrix get setmatrix } if } bind def /sethalftonephase {pop pop} def userdict begin InitializeTailorParseChunk